home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / util / wb / remember.lha / RememberReader.p < prev    next >
Text File  |  1998-04-01  |  1KB  |  35 lines
  1. ; Remember reader 1.0
  2. ; 
  3. ; (c) 1998 Cyborg 
  4.  
  5.     {* Include sys:coder/preass/Options.p *}
  6.     {* Include sys:coder/preass/Prozeduren.p *}
  7.  
  8.     {* String: Version="$VER: Remember Reader 1.0 30.3.98 (C) CYBORG 98"*}
  9.  
  10.     {* Incblock: Buffer1,250*}
  11.     {* Incblock: Buffer3,250*}
  12.     {* Incblock: Buffer2,250*}
  13.  
  14. Start:
  15.     OH=Output()
  16.     If (TH=Open("Envarc:Remember.tasks",#Mode_old))=#0 --> .ende
  17. .l1:
  18.     Result=Fgets(TH,#Buffer1,250)
  19.     Result=Fgets(TH,#Buffer3,250)
  20.     If Result=#0 --> .close
  21.     If (FH=Open("Envarc:Remember.dump",#Mode_old))##0 {
  22. .l3:
  23.                                                          Result=Fgets(FH,#Buffer2,250)
  24.                                                          If Result=#0 --> .l2
  25.                                                          If Comparestring(#Buffer1,#Buffer2,0,#MODE_nocase)=#0 --> .l3
  26.                                                          Execute(#Buffer3,0,0)
  27. .l2:                                                     
  28.                                                          Close(FH)
  29.                                                          bra .l1
  30.                                                        }
  31. .close:
  32.     Close(TH)
  33. .ende:
  34.     RTS
  35.